PC World Online - Visual Basic

BELGELER MEN▄S▄ KULLANIMI

Program² olu■turmak iτin ÷ncelikle resimde g÷rⁿldⁿ≡ⁿ gibi ⁿzerinde bir metin kutusu, iki opsiyon kutusu bir de komut butonu bulunan bir form olu■turun. Opsiyon kutular²n²n ismini opsiyon(0) ve opsiyon(1) olarak (Tabii ki Control Array) tan²mlayarak a■a≡²daki kodlar² uygun alanlara girin.

Private Sub Command1_Click()
Dim r As Long
Dim shFlag As Long
Dim shData As String
shFlag = SHARD_PATH

Select Case opsiyon(0).Value = True
Case True:
shData = (Text1)
Case False:
shData = vbNullString
End Select

r = SHAddToRecentDocs(shFlag, shData)
End Sub

' A■a≡²daki sat²rlar formdan
' ba≡²ms²z bir BAS modⁿlⁿne girecek.
Public Const SHARD_PIDL = &H1&
Public Const SHARD_PATH = &H2&
Public Declare Function SHAddToRecentDocs Lib
"shell32.dll" (ByVal dwFlags As Long, ByVal 
dwData As String) As Long

Program² τal²■t²rd²ktan sonra opsiyon kutular²n² kullanarak ister metin kutusundaki dosyay² belgeler menⁿsⁿne ekler, isterseniz belgeler menⁿsⁿnⁿ tamamen bo■alt²rs²n²z.